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CURSOS 


Senac Informática — Oferece os 
seguintes cursos para setembro e 
outubro: Introdução à Informáti- 
ca: de 24 de setembro a 10 de ou- 
tubro, das 14 às 17 horas. Preço: 
Cr$ 396.000,00. Basic Sinclair: de 
23 desetembro a 11 deoutubro. Pre- 
ço: Cr$ 279.000,00. Basic I: de 14 
de setembro a 16 de novembro. Pre- 
ço: Cr$ 692.000,00. Assembler Z-80: 
de 28 de setembro a 16 de novem- 
bro. Preço: Cr$ 544.000,00. Assem- 
bler 6502: de 28 de setembro a 16 de 
novembro. Preço: Cr$ 988.000,00. 
Supercalc II: de 21 de setembro a 26 
de outubro. Preço: Cr$ 741.000,00. 
Wordstar PC: de 25 de setembro a 4 
de outubro. Preço: Cr$ 1.235.000,00. 
Maiores informações: Rua Dr. Vila 
Nova, 228 — 5º andar — São Paulo 
— telefone: (011) 256-5522. 


CARTAS 


Informática no Brasil 


Sou estudante de Comunicação da 
Universidade Federal de Goiás e gosta- 
ria de contar com a ajuda da Geração 
Prológica em um trabalho que estou de- 
senvolvendo sobre a informática no 
Brasil. Já que esta revista é uma das 
mais atuais e apresenta ótimas matérias 
sobre o assunto, gostaria de uma ajuda 
para a realização de meu trabalho. Es- 
tou à procura de todo tipo de documen- 
tação que trate sobre a informática no 
Brasil, desde seu início até os mais re- 
centes progressos, relação de empresas, 
datas, órgãos, leis e mercados. Espero 
poder contar com sua ajuda. 

Adélcio Alves da Silva Júnior — 
Goiânia — GO 


Caro amigo Adélcio. agradecemos os 
elogios e sugerimos que você entre em 
contato com duas entidades muito im- 
portantes para a área de informática: a 
Secretaria Especial de Informática 





Indicadores de Qualidade em Com- 
putação para o Diálogo dos Usuários 
com os Profissionais de Computa- 
ção — Curso dirigido a empresários, 
executivos e profissionais liberais. 
Locais: Porto Alegre, dias 21 e 22 de 
novembro, e Belo Horizonte, dias 3 
e 4 de outubro. Maiores informa- 
ções: CQA — Computer Quality As- 
surance — Rua Tabapuã, 627 — 
conjunto 62 — São Paulo — telefo- 
ne: (011) 280-5648 e 852-7513. 


Lotus 1-2-3 — Data: de 2 a 6de outu- 
brooudellal3deoutubro. Local: 
Servimec — Rua Correa dos Santos, 
34 — Bom Retiro — São Paulo — 
telefone: (011) 222-1511. 


dBase II — Data: de 16a 20 de outu- 
bro ou de 25 a 27 de outubro. Local: 


(SEJ) e a Associação Brasileira da In- 
dústria de Computadores e Periféricos 
(Abicomp), que poderão ajudá-lo na 
elaboração de uma boa monografia so- 
bre o setor. Mas, para iniciar seu tra- 
balho, estamos enviando, via correio, 
vários documentos de seu interesse, co- 
mo: Catálogo da Indústria Brasileira de 
Informática, da Abicomp, e um relató- 
rio atual sobre a participação no mer- 
cado e descrição de produtos do grupo 
Prológica. Sugerimos também que vo- 
cê leia o livro Computador Faz Políti- 
ca, de Gilberto Paim. Este livro pode 
ser encontrado na APEC — Associação 
Promotora de Estudos de Economia —, 
Rua Sorocaba, 295 — CEP 22.271 — 
Rio de Janeiro. O endereço da SEI é: 
SAS — Quadra 5 — Lote 6 — Bloco H 
— Brasília. Esperamos que estas infor- 
mações sejam suficientes para o início 
de seu trabalho. 


ProCalc 


Gostaria de receber informações so- 
bre o programa ProCalc e onde posso 
encontrar programas para Vigas Con- 
tínuas e Lages. Outra dúvida: drive fa- 
ce dupla aceita programas para face 
simples? 

Paulo Roberto Lemos — Maceió — AL 
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Servimec — Rua Correa dos Santos, 
34 — Bom Retiro — São Paulo — 
telefone: (011) 222-1511. 


dBase III — Data: de 18 a 20 de ou- 
tubro ou de 23 a 27 de outubro. Lo- 
cal: Servimec — Rua Correa dos 
Santos, 34 — Bom Retiro — São 
Paulo — telefone: (011) 222-1511. 


Análise Estruturada para Sistemas 
com Banco de Dados — Data: 15 a 
18 de outubro. Maiores informa- 
ções: SCI — Sistemas, Computação 
e Informática — Rua Jardim Botá- 
nico, 635 — 8º andar — Rio de Ja- 
neiro — telefone: (021) 294-7438 e 
Avenida Paulista, 949 — 11º andar 
— São Paulo — telefone: (011) 
289-0099. 


Caro Paulo, o ProCalc é um progra- 
ma destinado à execução de cálculos so- 
bre um planilha eletrônica, armazena- 
da na memória do CP 500. Nesta pla- 
nilha, você pode anotar valores (que po- 
dem ser variáveis, tais como: tempo, ta- 
xa, ou fórmulas que são funções destas 
variáveis), ou mesmo rótulos que ser- 
vem para identificar os valores anota- 
dos. Você utiliza o ProCalc exatamen- 
te como utilizaria uma calculadora, mas 
a planilha tem a vantagem de poder ar- 
mazenar todas as fórmulas utilizadas e, 
assim que uma variável for alterada, to- 
dos os valores são automaticamente re- 
calculados. 

Quanto aos programas para Vigas 
Contínuas e Lages, você poderá adqui- 
ri-los nas seguintes software houses: 
Terracomp — Sistemas e Consultoria 
Rua da Assembléia, 93/801 — Rio de 
Janeiro — RJ. 

Eng Computadores Ltda. 

Avenida dos Tajuras, 406 — CEP 05670 
— São Paulo — SP — telefone: (011) 
813-7570. 

Siviero Engenharia de Projetos 

R. Sena Madureira, 513 — São Paulo — SP 


Informamos também que drive face 
dupla aceita programas para drive face 
simples. No entanto, o contrário não é 
verdadeiro. 
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Gerenciamento Profissional de Pro- 
cessamento de Dados — O Desafio 
dos Anos 80 — Data: de 2 a 4 de ou- 
tubro. Maiores informações: SCI — 
Sistemas, Computação e Informáti- 
ca — Rua Jardim Botânico, 635 — 
11º andar — Rio de Janeiro — tele- 
fone: (021) 294-9292 e Avenida Pau- 
lista, 949 — 11º andar — São Paulo 
— telefone: (011) 289-0099. 


Teleprocessamento em Redes de 
Computadores — Data: de 23 a 25 de 
outubro. Preço: 60 ORTN's. Maio- 
res informações: IBPI — Instituto 
Brasileiro de Pesquisa em Informáti- 
ca — Rua Mena Barreto, 77 — Rio 
de Janeiro — telefone: (021) 286-6891. 











Microprocessador 6809 


Quando comprei o meu CP 400 Co- 
lor, fiquei preocupado com a falta de 
programas existente no mercado. Mas, 
depois que fiz assinatura da revista Ge- 
ração Prológica, percebi o quanto este 
computador poderia ser útil nas minhas 
atividades, pois vocês me mostraram, 
com ótimas matérias e ““dicas””, como 
melhor utilizar meu CP 400. Por isso, 
parabenizo a revista pelo apoio dado a 
nós, usuários. Conforme indicação da 
“*Agenda”, estou fazendo um curso de 
informática, por isso peço, mais uma 
vez, ajuda a vocês: estou interessado em 
saber os modos de endereçamento do 
microprocessador 6809, é possível? Ou- 
tra dúvida: posso utilizar o CP 400 com 
a impressora P 500? 

Rodrigo Lambert Brasil — 
Rio de Janeiro — RJ 


Caro Rodrigo, ficamos contentes por 
nosso trabalho ter alcançado seu prin- 
cipal objetivo: informar e dar suporte 
adequado a nossos leitores. Quanto aos 
modos de endereçamento do micropro- 
cessador 6809, eles podem ser: 


1. Modo Intrínseco ou Inerente, onde o 
código da instrução contém todas as in- 
formações necessárias à sua execução. 
2. Modo Imediato, onde o endereço 
efetivo dos dados é aquele imediata- 
mente pósterior ao código de operação. 
3. Modo Extendido Direto, onde o en- 
dereço do dado é especificado pelos dois 
bytes subsequentes ao código de ope- 
ração. 
4. Modo Extendido Indireto. Esse é um 
caso especial do endereçamento indexa- 
do. Exemplo: LDA [L1] 
LDX [SFFFE] 
STU [L2] 

5. Modo Direto. Esse modo é similar ao 
modo extendido, exceto que somente 
um byte do endereço segue o código de 
operação. Esse byte especifica a meta- 
de menos significativa do endereçamen- 
to. Os outros oito bits do endereçamen- 
to são conseguidos através do registra- 
dor DP. 
6. Modo de Endereçamento por Regis- 
trador. Alguns códigos de operação são 
seguidos por um byte que define um re- 
gistrador ou alguns registradores que se- 
rão usados pela instrução. 
7. Modo Indexado. Em todos os ende- 
reçamentos indexados, um dos registra- 
dores de apontamento (X, Y,S, Ucal- 
gumas vezes o próprio PC) é usado no 
cálculo do endereço efetivo do ope- 
rando. 

Quanto à utilização do CP 400 com 
a impressora P 500, veja matéria, neste 
número, na página 9. 


ER RATA ex2==2m=>22>""==""— 
No programa “Pegalogo””, publicado 
na Geração Prológica nº 11, as linhas 
770, 780, 790, 800 e 810 devem ser cor- 


rigidas para: 


770 PRINT O 15*32,ºCONTINUAR (S/N) 
2 


780 A$= INKEY$:IF A$=“” THEN GOTO 
780 

790 IF AB=“N” THEN CLS: END 

800 IF A$=“S” THEN RUN 

810 GOTO 780 
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COLORII 


UM NOVO 


PADRÃO 


DE MERCADO 


A CP Computadores Pessoais está 
realizando uma revolução na área de 
microcomputadores, visando a forma- 
ção de um novo padrão de mercado, 
sendo que sua principal arma é o CP 400 
Color II. Para tanto, está sendo inexo- 
rável no desenvolvimento desta máqui- 
na: novo teclado profissional, com capa- 
cidade superior a 10 milhões de toques 
por tecla; microprocessador 6809E, 
com estrutura interna de 16 bits; con- 
solidação mercadológica através do de- 
senvolvimento e recenseamento de mais 
de mil softwares; estrutura para supor- 
te à comunidade de usuários e protoco- 
los de comunicação para todos os ban- 
cos de dados. Estas possibilidades tec- 
nológicas resultam, principalmente, na 
democratização do computador: o CP 
400 Color II assume seu papel de do- 
méstico avançado e profissional univer- 
salizando a'informática e transforman- 
do-a numa ferramenta extremamente 
poderosa, a serviço de todos os indiví- 
duos, devido a sua versátil performan- 
ce modular e econômica relação cus- 
to/benefício. 

Com um ano de lançamento e um 
parque superior a 25 mil máquinas insta- 
ladas, o CP 400 amadureceu e consoli- 
dou-se no mercado. Mas aimportância 
deste equipamento é que ele não pára 
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em suas primeiras especificações: além 
de acompanhar a tendência profissio- 
nalizante do mercado (por isso, o novo 
teclado), a CP Computadores Pessoais 
tem se preocupado em capacitar esta 
máquina para uma efetiva informatiza- 
ção da sociedade. 

Hoje, com uma biblioteca disponível 
em todo o Brasil de mais de mil softwa- 
res (entre utilitários, aplicativos e jo- 
gos), o CP 400 possibilita sua utiliza- 


ção em qualquer setor, com programas 
que vão desde simuladores de vôos até 
planilhas de cálculos de última gera- 
ção, com capacidade de gerar gráficos 
(similares ao Lotus 1-2-3), podendo 
ainda rodar sistemas operacionais tão 
sofisticados em características quanto 
o poderoso Unix. 

Mas isso só não basta para a geração 
das informações: a CP Computadores 
Pessoais também desenvolveu protoco- 


SRI técnicas do A EuuA So | 


º rop Ro cettadar 6809E com estrutura. interna de 16 bits 


e Fregiência de clock: 1.6 MHz 


e Memória ROM: 16 Kbytes, com programa monitor e api Basic 


e Memória RAM total: 64 Kbytes 


atacionsticas [o [SUAVÁTo [To] 


e Vídeo Modo Texto: 16 nas por 32 colunas (expansívei por s varo) 
e Vídeo Modo Gráfico: resolução gráfica de 49152 pontos | 


Recursos Sonoros 


O CP 400 Color II possui instruções específicas ve otimizam a utilização 


destes recursos, sendo que o som é transmitido at 





de RF para a 
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lo de comunicação para acesso ao ban- 
co de dados Cirandão, sendo que o do 
Videotexto estará disponível para os 
usuários até o final de 1985. 

Apesar de todo desenvolvimen- 
to tecnológico, o CP 400 Color II não 
perdeu o charme do design moderno, 
criado por Luciano Deviá. Ao contrá- 
rio: o teclado ganhou sobriedade pós- 
modernista com suas novas teclas pro- 
fissionais. 











e Duas saídas para joysticks analógicos 


ou colorido 
disquetes 
lho de TV P&B ou colorido 


e Fonte de alimentação 110/220 V 


Entradas e Saídas 


e Uma porta serial, através de plugue DIN, para conexão de impressoras, 
modems, ou qualquer outro periférico que necessite este tipo de sinal 

e Uma porta para gravador cassete com controle automático de motor 

e Uma saída, através de plugue DIN, para monitor de vídeo composto P&B 

* Entrada e saída de dados (DATA BUS), para cartuchos e controlador de 

e Uma saída de RF com Áudio para ligação do CP 400 Color II a um apare- 


e Chave de seleção de canais de RF (canal 3 ou 4) 





SOFTWARE 


A CP Computadores Pessoais realizou um recenseamento, 
em todo o Brasil, selecionando mais de mil softwares 
compatíveis com o CP 400 Color Il. Esta seleção será 

distribuída, em breve, para todos os usuários nos 
revendedores CPs. Neste número, a Geração Prológica 
publica listagem de alguns softwares profissionais e o 
endereço das software houses responsáveis: 


Programa Software House . 
Mala Direta (16 
Kb — fita) 
Banco de Da- 
dos para Pro- 
fessores (32 Kb 
Medical Color Soft 
Sistema de Con- 
trole de Clínica 


Medical Color Soft 


Medical Color Soft 
Processador de 
Textos com 
Acentuação 
em Português 

Peek & Poke 
Agenda Finan- 
ceira (32 Kb — 
disco e fita) ... Medical Color Soft 
Imposto de Ren- 
da (32 Kb — dis- 

Medical Color Soft 
Processamento 
de Textos para 
OsS-9 DOS (64 
Kb — disco) ... Medical Color Soft 
Banco de Da- 
dos (32 Kb — 

Medical Color Soft 
Planilha Eletrô- 
nica (disco) .... Micromaq 
Controle de 
Conta Bancá- 

Computer House 










Características do Teclado 


Teclado profissional com 59 teclas tipo ASCII, com capacidade superior a 
10 milhões de toques por tecla. 
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Programa Software House 
Contas a Pa- 
gar/Receber ... Planecon Informática 
Editor de Tex- 

Kristian Eletrônica 
Planilha de Cál- 

Peek & Poke 


Endereços das Software Houses 


Computer House — Avenida Andra- 
de Neves, 1254 — Campinas — SP 
— telefone: (0192) 8-0822 

Kristian Eletrônica — Rua Gonzaga 
Bastos, 112 — Rio de Janeiro — RJ 
— telefone: (021) 268-8249 
Logaritmo Serviços — Rua Dr. Afon- 
so Pena, 219 — Porto Alegre — RS 
— telefone: (0512) 23-2655 

Medical Color Soft — Rua Cícero 
Goes Monteiro, 15 — Rio de Janeiro 
— RJ — telefone: (021) 266-5995 
Microidéia — Avenida Passos, 101 
— 11º andar — Rio de Janeiro — RJ 
— telefone: (021) 233-3617 
Micromaq — Rua Sete de Setembro, 
92 — loja 106 — Rio de Janeiro — RJ 
— telefone: (021) 222-6088 

Peek & Poke — Avenida Brigadeiro 
Faria Lima, 1664 — conj. 1101 — São 
Paulo — SP — telefone: (011) 
813-3277 

Planecon Informática — Avenida 
Agua Fria, 925 — São Paulo — SP — 
telefone: (011) 204-2777 
























O CLUBE CP's está superando todas as expectativas 
iniciais, na medida em que está gerando um grande 
intercâmbio de informações entre os usuários. No entanto, 
o mais importante neste intercâmbio 
informações: cada vez mais os usuários de computadores 
pessoais estão indo além do inevitável, solucionando 
problemas e selecionando recursos para necessidades específicas. 
Neste número, publicamos as informações e programas 
enviados por João Dreys, engenheiro eletricista do Rio de Janeiro. 


o nive 


as 


TRAÇADO GRÁFICO 


O traçado de curvas que podem ser 
representadas por equações caracteris- 
ticas de suas formas é uma das mais sim- 
ples entre as múltiplas aplicações do mi- 
crocomputador na área científica. Mas, 
apesar da aparente complexidade, o tra- 
çado de curvas no CP 400 é muito sim- 
ples, tornando-se mesmo genérica sua 
metodologia. 

No Quadro I, acham-se relacionados 
34 programas para traçado de curvas, 
com o respectivo “código” (sugerido no 
caso de gravação em fita, além das res- 
pectivas equações). Deve ser observa- 
do que, ao serem lançadas as equações 
das curvas nos respectivos programas, 
já foram atribuídos valores numéricos 
aos diversos parâmetros, os quais tor- 
nam possível o registro gráfico de cada 
curva na formatação da tela, segundo 
a definição gráfica selecionada. 

No entanto, a partir das equações 
apresentadas, podemos expandir e de- 
senvolver quaisquer curvas, modifican- 
do em geral os diversos parâmetros e 
não se surpreendendo, contudo, se a 
máquina emitir “mensagem de erro”, 
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DE CURVAS 
NO CP 400 


coisa que fatalmente acontecerá se os 
valores numéricos resultantes se reve- 
larem incompatíveis com a formatação 
da tela. 


MONTAGEM DOS 
PROGRAMAS 


Na totalidade dos programas apre- 
sentados, foi obedecida a sequência 
abaixo: 

— Dimensionamento dos vetores (ar- 

rays) (DIM). 

— Definição do modo gráfico e cor 

(PMODE, PCLS, SCREEN). 

— Lançamento dos eixos He V, atra- 
vés de impressão sequencial (FOR 

V= «.. FOR H=sa). 


— Definição do campo da variável in- 
* dependente (X=...). 
— Impressão gráfica sequencial (PSET 
(H, V)). 


UTILIZAÇÃO DOS 
PROGRAMAS 


Os 34 programas estão selecionados 
em 4 grupos, que apresentam entre si 
uma analogia básica que permite o 
aproveitamento da maioria de suas 
linhas. 

Assim, ao ser introduzida em cada 
grupo sua parte comum, denominada 
“Estrutura Básica”” (EB), representa- 
da pelos programas “EB-1"”, “EB-2”, 
“EB-3” e “EB-4”, a parte específica do 
programa será realizada pelo teclado 
com um mínimo de trabalho, como po- 
de ser observado analisando-se o Qua- 
dro II. 

Caso o leitor possua um gravador, é 
conveniente salvar cada programa 
(“CSAVE”, “ENTER”), a fim de pos- 
teriormente desenvolver suas próprias 
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curvas a partir dos programas básicos 
ora apresentados. 

Nesta ocasião, observamos que atro- 
ca das programações EB entre si é fa- 
cilmente realizada com o auxílio das ro- 
tinas “DEL”, “EDIT” e “RENUM” 
sem necessidade de reescrever toda a 
programação. 

Uma vez escolhido o grupo de curvas 
desejado, e introduzida sua parte co- 
mum “EB”, bastará você completar o 
programa específico na forma apresen- 
tada no Quadro III e ver no vídeo a ge- 
ração ponto a ponto da função de- 
sejada. 


MENSAGENS DE ERRO 


Os 34 programas apresentados foram 
testados e devidamente aperfeiçoados 
até o ponto em que a qualidade apura- 
da permitiu sua edição. 

Ao serem desenvolvidos novos pro- 
gramas originais ou derivados, podem 
ser esperadas ocasionais “mensagens 
deerro”, que devem ser localizadas nos 
seguintes pontos: 

— Geração de imagem maior que o 
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QUADRO | 


RETA 

CÍRCULO 

ELIPSE 

PARÁBOLA 
HIPÉRBOLE 
SERPENTINA 
QUÁRTICA DE LAMÉ 
CÚBICA DE AGNESE 
CISÓIDE DE DIOCLES 
TRISSETRIZ DE 
MAC-LAURIN 
CICLÓIDE 


EPICICLÓIDE 
HIPOCICLÓIDE 


ESPIRAL DE 
ARQUIMEDES 
CARDIÓIDE 

CARACOL DE PASCAL 
CONCHÓIDE DE 
NICÔMEDES 

LITUUS 

LEMINISCATA DE 
BERNUILLI 
CRUCIFORME 
STROFÓIDE 

BIFOLIUM 

FOLIUM DE DESCARTES 
ROSÁCEA DE 3 FOLHAS 
ROSÁCEA DE 4 FOLHAS 
ROSÁCEA DE 6 FOLHAS 
ROSÁCEA DE 8 FOLHAS 
ROSÁCEA DE 2x2 
ROSÁCEA DE 4x2 
ROSÁCEA DE 4x3 
ESTRELA DE 12 PONTAS 
ESTRELA DE 10 PONTAS 
ESTRELA DE 8 PONTAS 
ESTRELA DE 6 PONTAS 


campo datela, resultante de valores 
de He V superiores à definição 256 
e 192, permitidas para o CP 400 no 
modo de alta definição gráfica. 

— Ocorrência de “'Divisões por zero” 
(./0), resultante de valores atribuí- 
dos à variável que efetivam um de- 
nominador nulo. 


DEPURAÇÃO 


De modo geral, eventuais erros são 
facilmente localizados através da roti- 
na apresentada a seguir: 

— Edição de instrução auxiliar man- 
dando imprimir dentro do laço da 
variável principal seu valor numéri- 
co passo a passo. Ex.: “For A = O 
TO 6,28 STEP. 5”” — Editar linha 
auxiliar “PRINTA”. 


FÓRMULA 


y=ax+b 
R+y =R 
xa? + yijb? = 1 
y=a2+b 
xa? — yilb? = 1 
xy + by - ax =0 
x*xy! = a* 
xy + 4a%y — Baº = 0 
2? = xº2a — x) 
x2(3a — xa + x) 


-<o< 
Nm 
Wu 


a(T — sen T) 

a(1 — cos T) 

- (a + b)cosT - bcos((a + bJb)T 
(à + b)senT - bsen((a + b)/b)T 
(a- b)cosT + bcos((a — b)/b)T 
(a - b)senT - bsen((a — b)/b) T 
= A3,14 


e e a TT 
<mx< xa x 
[UR 


a(1 + sen A) 
acosA + b 
asecA - b 


RA - aí 
R2 = 22 cos 2A 


2a cosec 2A 
a(sec A + tg A) 
a senT cos? Ti(sen?T + cosº T) 
a senTcosT 

a sen 3A 

a sen 2A 

a cos 3A/2 

a sen 4A 

a cos (b sen A) 
a cos (b sen 2A) 
a cos A sen À 

6 cos (sen 64) 

5 cos (sen 5A) 

4 cos (sen 4A) 

3 cos (sen 34) 


VINIIINIIIIINDDO 


UM mn no tomo 





— Como procedimento anterior, a má- 
quina fará a impressão dos valores 
de A e, ao se dar o “Estouro da Te- 
la”, o vídeo fará a impressão do 
erro. 

— Nesta oportunidade, ficará conhe- 
cido o valor da variável que produ- 
ziu o “Estouro da Tela”, tornando- 
se simples contornar o problema por 
artifícios computacionais de uso 
comum. 


MODO GRÁFICO 


Para ilustrar as aplicações dos diver- 
sos recursos gráficos do CP 400, foram 
adotados os modos 1, 2, 3 ou 4, em di- 
versas cores, dependendo da necessida- 
de de maior ou menor definição gráfi- 
ca de cada curva apresentada. 
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» 


Du RARE x é: ' 





CICLOIDE 






2 | DIMV (200) DIM V (200) DIM V (200) DIM (200) 
3% | DIMH(257) DIM H (257) DIM H (257) DIM H (257) 
% | PMODE3,1 PMODE 3,1 PMODE 4,1 PMODE 4,1 
so | POLS POLS POLS POLS 
60 | SCREEN1A SCREEN 1,1 SCREEN 1,1 SCREEN 1,1 | 
7 | FORH=0T025 | FORH=010257 | FORH=0TO27 | 
80 | PSET(H 100,8) | PSET(H,100,8) | PSET(H, 100,1) j 
9 NEXT H NEXT H NEXT H 
io 10 | FORV=07020 | FORV=07T0200 | FORV =0TO 200 | 
no | PSET(128,V,8) PSET (0, V, 8) PSET (128, V, 1) 
E | NDOY NEXT V NEXT V 


HIPOCICLOIDE CRUCIFORME 
OBS.: ESTAS ESTRUTURAS BÁSICAS APLICAM-SE AOS SEGUINTES PROGRAMAS 


100 - 110 - 120 - 200 290 - 320 - 220 - 330 - 340 - 
130 - 140 - 150 - 350 - 360 - 370 - 
160 - 170 - 180 - 380 - 390 - 400 - 
190 - 210 - 230 - 410 - 420 =430 - 
240 - 250 - 260 - 
270 - 280 - 300 - 
310 - 
10 REM RETA - 10 REM-CICLOIDE 10 REM-CRUCIFORME 10 REM-HIPOCICLOIDE 
20 DIM V(200) 20 DIM V(200) 20 DIM V(200) 20 DIM V(200) 
30. DIM H(257) 30 DIM H(257) 30 DIM H(257) 30 DIM H(257) 
40 PMODE 1,1 40 PMODE 1,1 40 PMODE 4,1 40 PMODE 4,1 
50 PCLS 50 PCLS 50 PCLS 50 PCLS 
60 SCREEN 1,1 60 SCREEN 1,1 60 SCREEN 1,1 60 SCREEN 1,1 
70 FORH=OTO 257 70 FORH=0TO 257 70 FOQH=0TO 257 70 FORT=0 TO 12.56 STEP .05 
80 PSET(H,100,8) 80 PSET(H,100,8) 80 PSET(H, 100, 1) 80 X=30*COS(T) + 20*COS(1.5*T) | 
90 NEXT H 90 NEXT H 90 NEXT H 90 Y=30*SIN(T)—20:SIN(1.5*T) 
100 FOR V=0 TO 200 100 FOR V=0 TO 200 100 FOR V=0 TO 200 100 V=100—Y 
110 PSET(128,V,8) 110 PSET(0,V,8) 110 PSET(128,V,1) 110H=128+X 
120 NEXT V 120 NEXT V 120 NEXT V 120 PSET(H,V,1) 
130 FOR X= — 100 TO 60 130 FOR T=0 TO 6.28 STEP .05 130 FOR A=0 TO 6.28 STEP .025 130 NEXT T 
140Y = X+30 140 M=SIN(T) 140 1F A>0 AND A<.05 THEN GOTO 260 140 GOTO 140 
150V=100-Y 150X=40"(T—M) 150 IF A>.735 AND A<.835 THEN GOTO 260 | 
160H=128+X 160 Y=40*(1—COS(M) 160 1F A>1.45 AND A<1.67 THEN GOTO 260 | 
170 PSET(H,V,8) 170V = 100—Y 170 1!F A>2.305 AND A<2,405 THEN GOTO 260 
180 NEXT X 180H=X 180 IF A>3.00 AND A<3.24 THEN GOTO 260 
190 GOTO 190 190 PSET(H,V,8) 190 1F A>3.875 AND A<3.975 THEN GOTO 260 

200 NEXT T 200 IF A>4.6 AND A<4.76 THEN GOTO 260 

210 GOTO 210 210 IF A>5.445 AND A<5.545 THEN GOTO 260 


220 IF A>6.175 AND A<6.28 THEN GOTO 260 
230 IF SIN(2*A)=0 THEN GOTO 260 

240 R= 15/SIN(2*A) 

250 PSET((128+ Rº*COS(A)), (100 + R*SIN (A)),1) 
260 NEXT A 

270 GOTO 270 


P) 
| 
100 1 10 190 1 10 310 1 10 370 4 10 | 
130 a 190 130 a 220 130 a 170 70 a 110 T 
110 1 10 210 1 10 200 2 10 380 4 10 
130 a 220 130 a 200 130 a 210 70 a 110 
120 a 10 230 a) 10 290 3 10 390 4 10 
130 a 220 130 a 170 130 a 270 70 a 110 
130 1 10 240 1 10 320 3 10 400 4 10 
130 a 190 130 a 170 130 a 190 130 a 170 
140 1 10 250 1 10 220 4 10 410 4 10 
130 a 230 130 a 170 70 a 140 70 a 110 
150 1 10 260 1 10 330 4 10 420 4 10 
130 a 190 130 a 190 70 a 110 130 a 170 
160 1 10 270 E 1 10 340 4 10 430 4 10 
130 a 190 130 a 180 70 a 110 130 a 170 
170 1 10 280 1 10 350 4 10 
130 a 190 130 a 190 70 a 110 
180 1 10 300 1 10 360 4 10 


130 a 220 130 a 240 70 a 110 





ESTE SUPLEMENTO É PARTE INTEGRANTE DA REVISTA GERAÇÃO PROLÓGICA Nº14. NÃO PODE SER VENDIDO SEPARADAMENTE 
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- PROCESSADOR DE PALAVRAS 


Programa aplicativo, desenvolvido para o CP 500 ou CP 300, 
versão fita cassete, que transforma seu computador pessoal 
emum eficiente editor: de texios = pesar. ess treennesiro So meia dita 


. LISTAGEM RÁPIDA 


Este programa utilitário permite ao CP 400 Color dispor de 
recursos para uma listagem super-rápida .............ceeeess 


. 80 Kb PARA O CP 400 COLOR 


Programa utilitário para você aumentar a memória disponí- 
vel qe seu computador... cacsse conerres aver TEsda ssa RE a EA dc O) 


-« ATERRISSAGEM LUNAR 


Continuação do divertido jogo para o CP 200. A primeira par- 
te da listagem em BASIC foi publicada na Geração Prológica 
DES 6 feio Sa e RS SOR SS ON RG o o pic SO Sra a 


. TRINÔMIO DO 2º GRAU 


Programa educacional desenvolvido para o CP 200 ......... 
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sms APLICATIVO / PROCESSADOR DE PALAVRAS 


Não jogue fora suas 


Você elabora um texto. Depois de 
pronto, descobre que faltam umas coi- 


sinhas aqui, outras acolá e que aquele 
segundo parágrafo jamais poderá ficar 


naquela carta. Nessas e em outras você 
já percebeu quanto papel gastou? E a 
paciência, para onde foi? Em muitos ca- 
sos, para a lata de lixo, junto com sua 
melhor idéia. 

Mas se você é um usuário do CP 300 
ou CP 500, versão fita cassete, a partir 
de agora não precisa mais se preocupar: 
o seu computador pessoal vai substituir 
com vantagem a tradicional máquina de 
escrever, tanto na eficiência como no 
tempo gasto para à elaboração de qual- 
quer tipo de texto, com várias opções 
para diagramação. É só operar o pro- 
grama Processador de Palavras. Explo- 
re melhor as possibilidades deste pro- 


-grama seguindo corretamente as instru- 


ções abaixo. 

No início da execução do Processa- 
dor de Palavras será solicitado o co- 
mando desejado. Digite HELP ou so- 


mente a letra H para conhecer todos os | 


DO IEIEIEIE IE SEDE IEEE TE DE SEIO IEEE DEE E IEEE 


outros comandos disponíveis do pro- 

grama. Para utilizar qualquer um deles, 

basta digitar o nome completo do co- 
mando ou mesmo a sualetra correspon- 
dente. Os comandos disponíveis são: 

1. ADD ou A — Deve ser utilizado 
imediatamente após o comando 
HELP. Permite a montagem do 
texto, numerando todas as linhas, 
a partir de zero. 

2. BLANCK ou B — Este comido 
retira todas as linhas em branco que 
estiverem no seu texto e renumera 
as linhas escritas à partir de zero. 

3. DELETE ou D — Permite deletar 
uma qu mais linhas do texto. Para 
tanto, você deve dar o número da 
primeira e última linha. Para reor- 
ganizar o texto, utilize o comando 
BLANCK. 

4. EDIT ou E — Este comando edita 
uma linha específica do programa, 
ouseja, altera, deleta, insere e cor- 
rige a linha desejada. 

5. FORMATS ouF — Formata o tex- 
to para saída na tela ou impressora. 


10. 
1. 
12. 
. REPLANCE ou R — Permite a al- 
14. 


15. 


16. 





. HELP ou H — Relaciona os co- 


mandos disponíveis. 


. INSERT ou I — Insere uma linha 


qualquer no texto. Não é possível 
esta operação no final do texto. Pa- 
ra tanto, utilize o comando ADD. 


. JUSTIFY ou J — Confirmação do 


texto. 


« KILL ou K — Elimina o texto sem 


sair do programa. 

LOAD ou L — Leitura dos dados 
gravados em fita cassete. 

MOVE ou M — Permite a movi- 
mentação de linhas ou blocos de li- 
nhas para outro local do texto. 
PRINT ou P — Impressão. 


teração de toda uma linha do texto. 
SAVE ouS — Gravação do texto 
em fita cassete. 

VÍDEO ou V — Neste comando se- 
rá dada a saída de seu texto para o 
vídeo, conforme formatação elabo- 
rada no comando F. 


EXIT ou X — Elimina o texto e sai 


do programa. 


130 CLS:D=0:N$="S“: IF LACO THEN L= 


20 “x FROCESSADOR DE PALAVRAS * Q:GOTO 170 & 
30. CX COMP. FESSONIS * 140 IF NL=LA+i THEN Z50 «ELSE IF 
40 “x CF-300/300 * LÍFL+1Z THEN B=L-1Z:ELSE B=FL 


GO O IEIÇIR SAIR JEI ICIEIE III IEEE IR E E 
60 CLSIPRINTTAR(15S) "PROCESSADOR DE 


FALAVRAS 


7o CLEAR 7400:DEFINT A-g: 
M AG(NLIG XE) SE CRO)  TORO) 


(X+3)/ 64 


160 GOSUEB 1960 
170 C=(L-FL+DIXx64: IF C)8696 PRINTIF 


NL=120:DI 
RINT:C=096 


150 FOR I=E TO LIX=LENCASCI)): D=D+ 


NEXT Irl=l+1 


BO E$=CHES (30) ICE=CHRS (143) 2F$="44 

E HeNg=m"8Cta Rag mu Pig="5" 

Ne SGg= tsHg=GgILA=-LP=1:FPR=1:PL= 

ELL=603LM=107U=52:DUT 3451 

ão L=LA:ITf=0:R=01068=0"PRINTEINPU 

Tº"ENTEÉ COM O COMANDOGASSLE Hg="" 
BI)TÓLEO 

110 A=ASC(BE)-64:IF AXO ON RB GOTO 

130 5520 siso 9 II 3 SO) sLOIi0 
5120-510 41140. 51180 51300-513 

LO 1500 5120 “4,150 ,1560 513005 

1670 s1L6G0 são 


Rio 51GS0 aLE0 
q alia ta 
120 PRINT! E ERRO DE ENTRADA ax" 26 
oTOLOo 


2 


180 FEINTeEC, USING FESLIPPRINTASOL) 
MS FE=SLENCAS(L))+LEC=C+HP+rSEk=L+1 
190 FEINTeC, C$&: PAB=INEEYSSPRINTEC, 
s2IF Bé&="" GOTO 190 
200 GOSUE 330 :0N B-7 GOTO 400 9 
450. 550 
210 IF B=13 THEN Ag=5$:607T0250 83 
LSE IF B=Z4 THEN 420 - :JELSE IF D=3 
1 GOTO 300 
220 IF B=25 
26 THEN 370 
30 IF A=04 IF LA(<L THEN LA=L:EGOTO 
100 — ZELSE a ? 
240 ERINTED,A :AS(L)=0S4LI+HAgIITF 
F<=LL THEM ipa C=0+1:GOTOLGO 


THEN 470 JELSE IF A= 
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250 IF KR GOTO 100 “ELSE IF NLC=k 
FRINT:IFRINT'ARQUIVO CHEIO"ILA=NL=1 
:G0T0i0dO 

260 IF LEN(CAgB(E)) THEN L=k: GOSUR 1 
150 

a70o IF ELA THEN LA=E. 

280 IF N$=8$ GOTO 320 

290 FOR M=LL+1L TO & STEF -1:A$=MID 
G(AE(L) Ms 1): IF A$()5$ NEXT M:GOTO 
320 


300 Ag(E)=RIGHTSCAS CM) LL-M+I) REC 


L)I=LEFTSCASCL)sM-I) 
310 PRINTEC-LL+M—-L, B$::L=k:GOTOIZO 


320 AG(L)= dan o Sa res LLy2L=E:GOTO 
170 
330 A=ASC(Ag):IF A)64 AND A<91 THE 
N A=A+U:ELSE IF A)96 AND AcIgsTHEN 
A=A-LU 
340 Ag=CHR$ (CA) RETURN 
350 IF FILL GOTO 250 ds: 
360 FRINTeEC, CHES (PE) FRASCO) =HECL)+ 
CHE$(17):A$=5$:GOTORZSC 
370 IF PoLL GOTO 250 cd: 
380 C=(L-FL+D)*64+42: IF C)900 THEN 
L=9200 
390 GOSUE 970. :P=1:A$=5$:60T02so 
400 IF P=1 GOTOIVO di 
4i0 C=C-LIPRINTEC, B$sP=P-LIBE(L)= 
LEFTE(AS(L) sP-1):GOTDIVO 
420 IF P=1i GOTOIPO ds 
430 Ag(L)="":P=1:C=(L-FL+D)x64+4: 
F C)900 THEN C=900 
440 PRINTEC,B&::GOTOiIVO 
450 IF FP)LlL-6 GOTO 190 is 
460 BPE(L)=AS(L)+STRINGE(S,5$)2C=C+ 
S:F=P+5:GOTOiLPO 
470 IF POLL GOTO Z50 ds 
480 C=(L- FL+D) 464+4:5 IF C)900 THEN 
C=9200 
490 GOSUE990 - :F=1:Ag=5$:G0TOZIO 
500 IF PL GOTO &50 ds 
910 PRINTEC, CHRS (COS) FABCL)=ABCL)+ 
Eine Pa A$=5$:60T0&3s0 
ay CLS: FRINT"DELETANDO LINHAS EM 
BRANCO" : FOR J=LA TO O STEP -1: ; 
390 IF ASCID="" FOR ei TO LAZASCI 
P=0E(I+1):NEXTIASCLAD=""ELA=LA-dL 
540 NEXT J:IF & THEN RETURN:FELSE 1 
seu 
550 INFUT“FRIMEIRA LINHA FARA DELE 
TAR“GE:SIF F<O THEN d: 
560 INFUT"ULTIMA LINHA FARA DELETA 


RºsZ:IF Z)9LA THEN Z=LA 

S70 IF F>Z THEN 120 “ELSE FOR I=F 
TO Z:A$(I)="":NEXT I:GOTO 1880 
s80 INFUT “QUAL A LINHA DE EDICAOS 
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- =1280 GOSUB o 


JLEIF LCO OR L9LA OR AS(L)="" goto 
120 “a 

S90 Ce4IP=12X$(0)=AS(L)INS="S" 

600 CLS: I=L:GOSUE 1960 iN=LiQa="" 


6i0o GOSUB 700 “IF 0)47 AND A(gE T 

HEN Q$=0$8+A$: N=VAL (QE): BOTÕELO 

620 M=0:IF A=3 THEN Y=-1:GBOSUB 730 
:ELSE IF A=9 Ok H=U THEN yY=1:605 


UB 730 
630 IF A=97 THEN AS(L)=X$(0):60TOS 
90 HE 


640 IF LENCAS(L)I)I=LL GOTO GEO 
650 IF A=25 GOSUE 990 “ELSE IF A= 
26 GOSUR 970 

460 IF AJ9E ON B-98 GOSUB 750 

O. -s8010 oro s2ÓLO0 s010 sS20 
670 IF A=ii% GOSUE 910 “ELSE IF A 
:ELSE IF BG=108 GOT 


179 


O 390 

680 IF M=1 THEN N= 13 Q$="":GOTD6LO 
ELSE IF E FEINTESZO, 3: ELSES00 

690 IF LL<X FRINT'LINHA"GLS"TEMOAX 
"CARACTERES" :GOTO 100 ELSE lego 


700 X$=MIDS(CASCL)sPaI) 

710 PEINTEC, CS: ASSINKEVSIPRINTOC, 

X$::1F A$g="" GOTO Zi0 

720 GOSUE 330 JX=LENCASCLIVITE H= 

13 OR A=96 THEN R=1:RETURN: FE RE 

TURN 

730 M=1:FOR I=1 TO N:P=P+YyIIF PoX 

THEN P=X:RETURN 

740 TF F<i THEN F=1: FETURN:ELSE C= 

C+YENEXT IIRETURN 

750 Q=PID=CIFOR I=1 TO N:GOSUB 700 
IF ROR A=27 THEN P=Q:C=D:RETUR 

760 PEINTeEC, Ag: :GOSUEB S90 

GOSUR 900 JAS(L)=|L$+AgB+RS 

7704 AsJIC=C+LIIF Pé=X NEXT TI 

s0 P=Q:0=D: RETURN 

790 IF F+N-1)X THEN N=X-P+riis 

800 GOSUB 390  :Q=P:P=P+N:GOSUB 90 

O SAS) =L$+HR$SP=Q:RETUREN 

810 GOSUE 390 AFlLi=L&+SEIFRINTE 

EsB 

s20 GOSUB 700 


S30 IF A=iQ THEN AS(LI=AS(L)+CHERS( 
17) 2:&=1 RETURN 

840 IF B=31 THEN AS (L)=AS(L)+CHES( 
20): R=12KRETURN 


sP=P+js 


IF E OR A=27 KRETUE 


IF o A=o 


So PERINTEC, R$: THEN Y=-1:6. 
OSUB 730 :BDTOS2O 
360 IF B=9 THEM Y=1:GOSUE 730 :G0 
TO S20--=-EECSE TE P)X TREN CASE 
E7O GOSUE 990 - FBOSLÊ 900 FASC(L)= 
L$+As+R$IFPRINTOU  BEsAg+rkSs O 


80 C=C+iiP=P+L:GOTOS20 


890 L$="": TF P(Z RETURN:IELSE L$E=LE 
FTECASCL)sP-1): RETURN 
900 Ré=""2TF P>)X RETURN: ELSE: Ré=RI 


GHT$ (AS (CL), X-P+ri) RETURN 

910 GOSUE 700 à Q=PiD=0:: 

920 FOR I=1i TO N:F=0:FOR J=Q+1 TO 
X:D=D+1 

930 IF MID$(AS(L),],1)=A$ THEN F=1 
EQ=JJ=X 

940 NEXT J:NEXT I:IF F THEN P=Q: C= 

D 

950 A=U:ZRETURN 

960 AG(L)=AS(L)+SG:P=X+1:C=P+3 
D São di 

970 AG(L)=STRINGS$C((LL-LENCASCL)) 77 
Es Sa +HE CL) +CHES CEO) 

980 PRINTEC, BESAECL)SCHRE(CDS): 
URN 

990 AS(L)=STRING$(LL-LENCAS(L)D) SE 
J+AB(L)s 

1000 PRINTEC,ESIASCL):s 


“GUT 


ERET 


2RETURN 


lotú CLS:PRINTPATUAL ERMANHI DA LI. 


NHA=" LL, 2 INPUTONOVO"GLL: 

1020 PRINT'“ESFACOS ENTRE as LINHA 
="48, 2 INPUT'NOVO=":S 

1930 PRINT"LINHAS NUMERADAS= 
atm INPUT "NOVO (S/N)"ENS 
1040 PRINT'NUMERO DA PRIMEIRA LINH 
= "FL, INFUTONOVO=" FL 

1050 PRINT"ATUAL MARGEM ESQUERDA=" 
LM INPUT O CNOVO=" LM 

1060 PRINT “ATUAL e DA FPAGIN 

A="4PLo2 INPUT "NOVO=":P 


“usNg 


“1070 FRINT"IMPRESSAO is PAGINAS= 


Cr PNS+ O, 2 INPUT “NOVO (S/N) ENS 
1080 PRINT"NUMERO DA FRIMEIRA PAGI 


NA= "sFF, 3 INFUT“NOVO=":FP 
1090 PRINT"SEMPRE NUMERAR PAGINAS 
= (eaPiSp"/";2INFUT “NOVO (S/N) EP 
1$ 


aulas, 


ii0óo PRINTºTITULO ATUAL= ga 
“ay INPUT "NOVO=":H$: GOTOLOO 
lilo CLS:PRINT'COMANDOS A UTILIZAR 
1120 PRINT"A ADD'","B ELANE","“D DEL 
ETE"S"E EDIT",“F FORMATO, "H HELP", 
“I- INSERT JUSTIPY" MK KILESRTE 
LOAD! "M MOVE, "PP PRINTOS "E REPLA 
CE", "S SAVE", "V VIDEO", "X-EXIT" 
1130 FRINT"ATENCAO: TECLE DUAS VEZ 
ES “SHIFT-e” FARA RETORNAR A OFCARO 
DOS COMANDOS QUANDO ESTIVER NA OF 
CÃO A,E,I,R":GBOTO 100 
1140 INFUT "INSERIR EM QUE LINHA": 
L:IF L<O OR LÍLA GOTO lgo da 
11350 IF NL=LA+i PRINT'ARQUIVO CHEI 
D":GOTOLOO- zELSE IF E GOTOi0OO 


é 


1160 FOR I=LA TO L a ER l:A$B(I+i)= 

ASCIV2NEXT I 

1170 Ag(L)="":LA=LA+risL=L-1:IF IT 

RETURN:ELSE IT=1:G0TOLSO 

1130 CLS:PRINT"CONFIRMANDO":FOR L= 

O TO LA: X=LENCAS(L) 

1i90 IF X<z GOTO 1290 
X TO & STEF- 
») 
1200 IF A=U THEN ASCL)=LEFTSCASCL) 
sI-1):X=X-1:NEXT I 

1210 IF X)=LL OR A=17 OR As 
1290 :ELSE J=0:E=1:FOR I=1 TO x 


*ELSE FOR I= 
1:A=ASC(EIGHTSCAS(L)sd 


al THEN 


“1220 IF MIDS(AS(L)s1,1)4)S$ THEN E 


=0Q:ELSE, IF E=0 THEN do S(J)=I1:J=J 
+1 

1230 NEXTI:IF J=0 GOTO 1390 
1540 E=END(J)-L:TF INTOCJ/5)=J/& 
J=1 THEN N=1:ELSE N=2 
1550 FOR I=i TO LL- ss ão =T(k)+l: E 
=k+N:IFE)J-1 THEN E=k-J 

1260 NEXTI :FOR dE TO O STEP 
:AS=STRINGS(T(I)  S$)ET(T)=0 
1370 ASCL)I=LEFTECASCL), SCI) +AB+RI 
GHT$ (APCL)sLENCASCL))-5 CT) 

ago NEXT I 


OR 


ade 


| 1290 NEXT L:GOTOlSS0O 


1300 CLS: INFUT'"DESEJA MATAR DO ARQU 
IVO (S/N)"sng: IF Ag="5" THEN EBUN:E 


LSE 100 da 

1310 GOSUE 1870 :CLS:FRINT'LENDO D 
ADOS DA FITA"a: 

1320 INFUTE-L,LA 

isso INFUTE-L,LL 

1340 INPUTH-L,S 


13550 INFUTE-L,N$ 


1360 INFUTH-1,FL 

1370 INPUTH-L,;LM 

1380 INFUTH-1sFPL 

1390 INPUTH-IL,PN$ 

1400 INPUTH-Ls FE 

1l410 INPUTE-1,21& 

1420 INFUTH-L,H&$ 
1430 FOR I=0 TO LO STEP 4: INPUTE- 1 
5XE(O) 


1440. INFUTE-=L,X$CI1) 
1450 INFUTH-1,X$(Z) 


- 1460 INFUTHR-IGXECS) 


1470 FOR J=0 TO S:L=1+]:X=LEN(X$(I 
Pagto ="": IF X<i GOTO 1490 Co 
1460 FOR E=1 TO X:ASCL)=ASCL)+CHES 
(ASCOMIDSCXECITD) ss 1) ENEXTE. 

1490 NEXTJ:NEXTI:GOTOLOO 

1500 INPUT"PRIMEIRA LINHA PARA MOV 


-ERCGFP:IF F<O THEN F=0:: 


1510 INFUT"ULTIMA LINHA PARA MOVER 
"agr IF Z)LA THEN E=LA 


1520 IF F)Z THEN-1Z0- “ELSE INRUTS 
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PRIMEIRA NOVA LINHA":N:FOR I=F TO 


1530 IF LEN(CA$C(N)) PRINTOLINHAC NG 
" CHEIA "al=Z+1:CH=1:6G0T0l5S30 

1340 ASECN)D=ASCL)ZASCI)="":N=N+LGS IF 
N9LA THEN LA=N 

13550 NEXT I:IF CH=i THEN GOTO 100 
ELSE CH=0:GOTO il800 

1560 IF FEEk(l4siz)cizo THEN X=FP: 
M=FL:GOTO 13590 2: 

1570 INPUT" IMPRESSORA NAO ESTA PRO 
NTÃ. ABANDONAR (S/N)"IA$ 

iso IF A$g="S" THEN 100 ELSE INP 
UT "PRESSIONE ENTER“ :A$:GOTOILSGO 
1590 .E=1 : GOSUESZO  ICLSPPRINTOIMPE 
IMINDO" 

1600 LPEINT CHE$S(30):IF FN$()"S" O 

FR íMPléê="Nº AND X=1) GOTO Léo 

lóio LPRINT TAB(CLM)IH$S:TABCLL+HLM=7) 
“PAGINA GUSINGCRHRRO GXILPRINT TABCL 
M) 

1620 FOR P=M TO M+PL-L:TF POLA GOT 

O 1640 

1630 M=M+1 2 IF 5 LPRINT STRING$&(S-1 
13) 

1640 LPRINT TABCLM)G:TF Né="5S" LPR 
INT USING FéóiFi 

1650 LPRINT A$(CF):IF ASC(RIGHT&S(CAS 
(P),1)9)€917 NEXT E 

1660 LPRINT CHERS (ES): IF PLA THEN 
100 JELSE X=X+1:G0TO 1600 

1670 INFUT “DESEJA TROCAR QUAL LIN 

HAºSL:TF L<O OR L>2oLA GOTO lão 
1680 E=1:A$&(L)=""il=.-1:GOTOISO 

1690 GOSURB 1870 :CLS:PRINT "GRAVAN 

DO DADOS NA FITA": 

1700 PRINTE-L;LA 

1710 PRINTE&-L5LL 

1720 PRINTE-1,S 

1730 PRINTE-L 4 N$ 

1740 PRINTE-1,FL 

1750 PRINTE-1,LM - 


1760 PRINTE-L,4PL 
1770 PRINTE-L4ENS 

1780 PRINTH-14FP 

1790 PRINTH-L,F1S 

S00 PRINT&-1,H$:FOR L=0 TO LA STE 
P 4 

iB10 FOR J=0 TO 3:I=L+]:X=LENCASCI 
WDaXECD="":IF X(1 GOTO 1830 

E20 FOR K=1 TO XIXECI)=KECT)+CHES 
(ASC(MIDSLAS CT) E, 1))) ENEXTE 

1830 NEXTJ:PRINTH-L,X$(O) 

840 PRINTE-L, X$C(L) 

1850 PRINTH-L,X$(Z) 

1860 PRINTH-1,X$(3):NEXTL:GUTOLOO 


1870 INFUT "QUANDO PRONTO O CASSET 
E PRESSIONE (ENTER) "GAg:RETURN 
1880 CLS:X=FP-1:FOR M=FL TO LA STE 
P PLIX=X+Iis 

890 IF Fig="N" AND X=1i GOTO 1910 
1900 IF PN$="S" PRINT hH$: TABCLL-7) 
“"PAGINA"USINOG "ERRA XIPRINT 
1910 FOR I=M TO M+PL-izIF To5LA GOT 
O 1940 

1920 IF S PRINT STRING$(S-1,10) 
1930 GOSURB 1960 

1940 NEXT I:B$&=""2 TF TIe=LA INPUT 
PRESSIONE ENTER“:AS:IF ASS) "M=LA 
1950 NEXT M:IL=LH:GOTO 100 

1960 Y=LEN(CASCI) GIF Y THEN B=ASCt 
RIGHTECAS(CI), 1) ): ELSE A=o 

1970 IF Né="S" PRINT USING Fil: 
1980 FERINT Ag) ::IF A=17 PRINT CH 
R$(DA) 

1990 IF A=ão PRINT CHES(93)5: ELSE 
IF A=U PRINT CHR$(953): 

2000 IF N$€)"S" OR Y()69 FRINT 
SOLO RETURN 
2020 CLS: INFUT"DESEJA SAIR DO FROG 
FAMA CS/N)D"aAg:Ir A$e)"S" GOTO 100 


s030 CLS:CLEAR SO: 0UTES4,0: END 


UTILITÁRIO um 


Listagem rápida 


me 


Se você estiver desenvolvendo um 
programa e precisar de uma boa revi- 
são, utilize este utilitário, que permite 
ao CP 400 dispor do recurso de umais- 
tagem super-rápida, com a simples uti- 
lização das setas. 
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A rotina de listagem automática es- 
tá, na realidade, em linguagem de má- 
quina, porém, o programa que a colo- 
ca na memória está em Basic. Esse pro- 
grama utiliza uma série de recursos 
avançados, que analisaremos a seguir. 





Mas, antes de você terminar a digitação, 
não deixe de copiá-lo em fita ou disco 
antes de rodar, pois ele apaga a porção 
em Basic da memória, deixando apenas 
a rotina em linguagem de máquina 
operando. 


5 


Inicialmente, o programa localiza o 
topo da memória na linha 330. Com es- 
sa informação, ele separa espaço sufi- 
ciente na memória para acomodar a ro- 
tina em linguagem de máquina (linha 
340) e localizar o novo topo da memó- 
ria, na linha seguinte. 

As quatro linhas a seguir (360 a 390) 
lêem os valores decimais corresponden- 
tes à rotina, para acomodação na área 
de memória previamente reservada. 
Esta área, com este procedimento, fi- 
ca protegida contra futuros NEWSs, 
CLOADsou LOADs — o que significa 
que todos os programas que foram co- 
locados na memória não afetarão esta 
rotina. 

A linha 400 ativa a rotina e a 410 lo- 


“caliza o início do programa em Basic 


que a carregou. A linha seguinte coloca 
dois zeros no começo daquele progra- 
ma para que o computador o considere 


“apagado”. Na linha 430, outros dois 
18 E SUFERLIST 
a 1 JAN/85 


4g CLEAR 200, TM-E4B 


50 TM=PEEK(S9)xES6+PEEK(UA) 


FAULO ADDAIR 
38 CLS:TM=PEER(39)xES6+PEEK(UB) 


zeros são colocados na memória, des- 
ta vez nos endéreços usados pelo com- 
putador para marcar à linha onde ele 
está trabalhando. 


A ROTINA 


A primeira parte do código carrega- 
do altera duas posições de memória pa- 
ra que o computador salte para a roti- 


na SUPERLIST toda vez que uma te- É 


cla seja pressionada. 

A segunda parte é a sub-rotina, para 
onde o computador salta quando qual- 
quer tecla é pressionada. Essa sub- 
rotina verifica se a tecla digitada foi a 
seta para cima e, nesse caso, muda 0 va- 
lor decimal de 94 para um, a fim de que 
não seja impfesso o colchete. 

Aterceira parte é a principal da roti- 
na. Ela verifica qual seta foi pressiona- 
da, localiza o número e o endereço da 
linha imediatamente posterior ou ante- 
rior, conforme o caso, e ativa a sub- 


rotina na ROM, que procederá à deco- 
dificação e listagem dessa linha. 


OBSERVAÇÕES FINAIS 


Se você for usar o SUPERLIST com 
vários programas, não se esqueça de 
executar um LIST da parte que preten- 
de analisar logo após carregar cada pro- 
grama. Isso deve ser feito sempre, pois 
o computador mantém registro de on- 
de estava a última linha de programa, 


mesmo que um novo programa seja co-. 


locado na memória. Essa informação 
só é adaptada ao novo programa após 
um LIST. Dependendo de onde estiver 
esse endereço, O SUPERLIST pode en- 
contrar a próxima linha do novo pro- 
grama; caso contrário, o computador 
poderátravar. No entanto, se isso acon- 
tecer, simplesmente acione RESET, di- 
gite LIST e pressione ENTER para tu- 
do voltar ao normal. 


180 DATA110,137.0,145,141,18,236 


7158 


198. DATA 
SorgaBraaB, 43,397. 60,16,131,06533+ 


166 /C01l-/43-174, 68, 141, 106,52,238 


“dra d6r 13%, 38,4-50,98r 


“B;iii 


6 FORX=TM TO TM+EEs 


78 READ A. 
8a POKE X-R 
9a NEXT X 
108 EXEC TM 


iilQ F=PEER(ES) XESótFEER(Z6) 

1iz0 FOKEP,B:FOKEF+1,0 

138 FOKE 43,0:POKE 4, OB 

1460 DATA 49, 141,0,220,190,1,107+ 
17535-164. 48. 141,0,36,191,1,107,49 
5141,0 

150 DATAZIL4,190,1,104,175, 164, 4a 
7141,0,4,191,1,104,57,189,94,38» 


140 DATA 130,90,134,1,30,98,37» 
110,157,0,185,5%,119,51, 141,0, 
169, 1%9 

17260 DATA 1:39,20,129,10,38.10» 
141,26,236,70,281,43,1724,728, 141» 
1ã48,53+119 


meses UTILITÁRIO 
80 Kb para o CP 400 COLOR 





299,739,54 S 
200 DATAZS?.66,173.68,16-:174, 132 
116-174,164,38,5,237,70,175,7Er 
57-16 
alO DATA 163:8-39,14,38:6-:236-E» 
237,166133716:173768,174, 138, 3&» 
237516 ã 
aco DATA 1724,138,16,174, 164,39» 
ér174,138,036,/28,:237,78,173+72,32 
cera 

30 DATA &,237,70,173,.72,037,66+ 
175, 68,16, 174, 132.16-+174. 164,39» 
aBB,175 
e4B DATA 68,.236-:2,/237  66- 174, 132 
138,238,32,188,58,16,189, 189, 204 
-189 
es8 DATA 185,172:,53.16-,189,183+ 
194, 206, à,221,166,198,39,53-189> 
185,177,32,247,189,18053:9E8,57 


Este programa possibilita operar seu 
CP 400 com 80 Kb de memória. Como 


- é possível? Conte com a gente: são 


64 Kb de RAM disponível para você e 


6 


16 Kbde ROM.64 + 16 = 80 Kb. Em- 
bora pequeno, este programa é muito 
poderoso, e faz o que chamamos de pa- 
ginação de memória. O que realmente 


ocorre é que este programa divide a me- 

mória em “páginas” com 32 Kb cada 

uma, completamente independentes. 
Podemos, então, comparar o CP 400 
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- 





adois computadores, um dentro do ou- 
tro, cada um com 32 Kb de RAM. Vo- 
cê poderá carregar dois programas in- 
dependentes nas duas páginas, acessar 
o cassete separadamente etc. 


Após digitar o programa, rode-o. A 
tela não deverá se modificar. Agora di- 
gite — na sequência — new ENTER, 
CLEAR e EXEC 32383, para visuali- 


zação da cópia do programa original, 
que estava na “página” 1. O da “*pági- 
na” 2, onde você estava antes, foi apa- 
gado. Digite agora EXEC 32353. Pron- 
to. Cá estamos de volta na “página” 2. 
Agora, todas as vezes que você quiser mu- 
dar de página, é só utilizar os comandos: 
EXEC 32353 para passar para a ““pági- 
na” 2 e EXEC 32383 para passar para 
a “página” 1. Você também poderá in- 


cluir estes comandos em um programa 
BASIC e carregar e executar programas 
completamente diferentes nas duas pági- 
nas, sem que um atrapalhe o outro. Mas 
vale a pena fazer aqui algumas observa- 
ções: você não poderá usar comandos de 
alta resolução na “'página”” 2, não pode- 
rá rodar os dois programas simultanea- 
mente e, se RESET for pressionado, vo- 
cê voltará sempre para a “página” 1. 


POKESHFFDE » 1 
YY=USRI(O) 


DATALA;50,8E, 89,04, A6, BU, EZ 
DATAFF,DF,A7,88,E7,FF,DE,8C 
vATACF, 00,26, F1,87,7F.DF,àC 
DATREAF > 39 


DORMIDO DEE ODEIO E EEE O 188 

2o "x BE K x 190 

38 x Ce”. COMP. - PESSOAIS x 280 ENE 
ua x CE-LBE x 2A 

50 x FROGRAMA DO USUARIO * is 

PA LIRA E DA de RA do RR RR RD RR RARA 230 

78 CLENRIDA, 32300 au 

8 FORI=65068 TO 65068+i LE; READA ssa 


$23POKEI>VALCRH"+AS) NEXTI 
98 RESTORE 
190 FORI=32300 TO 32306+112:READ 
A$sPOKEL> VAL CPRH" +AS) 


68 
278 
280 
9a 


110 NEXTI 588 
128 RESTORE. 319 
1360 DEFUSRO=32300:DEFUSRI=3A3A6 | sab 
146 IFFT>BTHENiSO 338 
1580 FT=1 “Ls 8) 
160 XX=USR(B) 358 
1728 GOTOSB 548 


DATRIA, 50,SE.40,00,12,SE,08 
DRTAGE,A6,80-E7,FF,DS,07, 06 
DATAEZ>FE,D4,18,9C,68,09,A5 
DRTHFG, ic AF 

DATAEZ o, FF .DI,86,39,07,. 01,67 


SATACOA,BZ,FF, CC, B2,FE, CE. E? 
DOTOFF,DO,E2,FF.D3: 35 
DATRRZ, Pr. OL, BA, 2E.27, 81,67 
DATOEBZ,FE Ca, BZ, FE.C9EZ,FF 
DATACA EPs rr, LC EP, FE. CEE? 
DATAFE, DB, EZ,FF+Dã,3S o 





JOGO mus 


Aterrissagem Lunar care: 





No último número, você iniciou sua 


- Aterrissagem Lunar. Agora, é só termi- 


nar de digitar a listagem em Basic, não 
esquecendo que a linha 120 precisa ser 


AT 2,515; 88" 


completada com os seguintes dados: 
AT 2,15; *º m*”. Depois é só jogar, to- 
mando sempre cuidado com as deslo- 
cações de sua nave para não perder o 


combustível. Todos os comandos ne- 
cessários são dados pelo seu computa- 
dor pessoal. 


eso NEXT N 
130 PRINT AT Z,0:"VELOC.= "PES(A), | 260 PRINT “COMB.S" 
140 IF A(O OR A=0 THEN PRINT “DESC | 270 INFUT T 
ENDO" 280 LET C=0-T 
150 IF A>0 THEN FRINT "SUBINDO" 290 LET B=B+A-T-LO 
160 FOR N=1 TO 16-B/100 300-LET B=A+T-1O 
170 FRINT 310 IF C(<1i THEN 6070400 
180 NEXT N 320 IF EB(S50 THEN CLS 
190 FOR N=1i TO 5+(REND*3)-(REND*3) .330 IF EB(<50 THEN GOTOS20 
200 PRINT O "ts 340 IF E>19 THEN GOTOLOO 
210 NEXT N 350 IF DES (E)J(Z0 AND DES (<B)<SO T 
220 PRINT "40)" HEN LET E=d 
E30 FOR N=1l6-INT (B/100) TO 16 360 IF E=1 THEN FRINT “ATERRISAGEM 
240 PRINT PERFEITA" 
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És 





» 





370 Ik EK=1 THEN STOF 


E A LUA A * 
FRINT AT 9,14:ABS (A): 


430 

380 CLS 

390 IF C)1 THEN GOTU 430 440 STOP 
Es 450 

Rot. his 460 CLS 

410 PRINT AT 4,6:"ACREOU-SE O COM esa E 

BUSTIVEL" aa 


“420 PRINT AT 7,6: 


! 


se EDUCACION AL 


"CHOCOU-SE CONTRA. 


“RMZH 


SAVE"ATERRISAGEM" 


a — Trinômio do 2º Grau 





Este é mais um programa educacio- 
nal, desenvolvido pelo departamento de 
software da CP Computadores Pes- 
soais, para ajudá-lo na fatoração de um 


trinômio do 2º grau, bastando forne- 
cer os valores dos coeficientes. Devido 
às instruções e comandos necessários se- 
rem dados pelo computador, através do 


vídeo, este programa é de fácil opera- 
ção, tornando-se um eficiente instru- 
mento para a introdução à informática 
no setor educacional. 


LO CRIEICIEILILICICILILIE III III II III III IE E 


20 “* TRINOMIO-SEGUNDO- GRAU * 
s0 “x PROLOGICA * 
40 '* CF-200 * 
716) CIRIEICILIL IL IE IE IL IE IE ILIE IE IO ILE IE IE III II III 
60 CLEAR 

70 CLS 

80 PRINT AT 8,5:" FATORACAO DE TEI 
NOMIO " 


90 PRINT AT 10,14:" DO " 

100 PRINT AT 1Z,9;" SEGUNDO GRAU " 

110 PRINT AT 20,3:"DIGITE <C) P/ C 

ONTÍNUAR" ; 

120 LET AS=INKEY$ 

130 IF Ag="" THEN GOTO 120 

140 CLS 

150 PRINT AT 3,2:"ENTRE COM OS VAL 

ORES PEDIDOS: " 

160 PRINT AT 5,4; 

170 INFUT A 

180 PRINT AT 

190 PRINT AT 

200 INPUT B 

210 PRINT AT 

220 PRINT AT 

230 INPUT C 

240 PRINT AT 9,195C 

250 IF A=0 OR B=0 OR C=0 THEN GOTO 
140 

260 PRINT AT 20,4;"ALGUMA CORRECAO 
(S/N)? 

270 INFUT D$ 

280 IF D$="S" THEN GOTO 140 

290 LET DELTA=(B*B)-(4XA%C) 

300 IF DELTA(O THEN GOSUB 600 

310 IF DELTA(O THEN GOTO 560 


"COEFICIENTE A= " 


3519158 
7445"COEFICIENTE B= " 


73195B 
9,43"COEFICIENTE C= " 
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320 LET X1i=(-E-SQR (DELTA))/(2xA) 


330 LET X2=(-B+SQR (DELTA))/(2xA) 
340 CLS 

350 PRINT AT 2,104" TRINOMIO " 
360 PRINT AT 3,13:" DO " 

370 FRINT AT 4,8:" SEGUNDO GRAU " 
380 PRINT AT 7,83" FORMULA GERAL 
390 PRINT AT PODE aC III IR IR RR 
400: PRINT AT 10,935"! su 
410 PRINT AT 11,935" 2 %*! 
420 PRINT AT 12,9:"x AX+EX+OE +" 
430 PRINT AT 13,935"% ax! 
440 PRINT AT 14,95" %%%HHFRIRI IICA! 
450 PRINT AT 16,435" SOLUCAO DESTE 
EXERCICIO " 


460 PRINT AT 18,45"2" 

470 IF B>O0 AND C>O THEN PRINT AT 1 
D,2305"X+"5B5"X+"sC 

“30 IF B)0 AND C<XO THEN PRINT AT 1 
92,25 0X+"sSBA"XNSC 

490 IF B(O AND C>O THEN PRINT AT 1 
9, 2sBARPMXPSBarX+P IDC 

500 IF B<O AND C<O THEN PRINT AT 1 
D,52305"X"SB5!XNEC 

510 PRINT AT 19,145"=" 


3920 IF X1)=0 AND X2)=0 THEN GOSUB 
530 IF X1)=0 AND XZ2<0 THEN GOSUB q 
Emo IF X1i<O AND X2)=0 THEN GOSUB 6 
amo IF X1i<O AND XZ<0 THEN GOSUB 71 


(9) 


Continua no próximo número 
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“CP 400 E A INTERFACE - 
DE COMUNICAÇÃO SERIAL 


A eficiência das possibilidades do CP 400 Color pode ser cada vez mais ex- 
plorada, na medida em que você for conhecendo a potencialidade do equipa- 
mento e a utilidade de seus acessórios. Estes conhecimentos são básicos para 
uma correta utilização e funcionabilidade do computador. Neste número, dicas 
sobre a interface de comunicação serial e o CP 400, fornecidas pelo departa- 
mento de Engenharia de Produto da CP Computadores Pessoais. | 























O CP 400 possui uma interface de comunicação serial, 
que é utilizada para ligar ao computador uma impresso- 
ra, um modem ou qualquer outro equipamento que utili- 
ze o padrão RS 232C de comunicação. 

Para trabalhar com esta interface, um dos dados mais 
importantes é a velocidade de comunicação de dados — 
conhecida como BAUD RATE. Para tanto, podemos con- 
figurar o CP 400 de acordo com a velocidade de transmis- 
são/recepção do periférico ou configurar o periférico com 
a velocidade do computador. 

No primeiro caso, utilizamos a seguinte tabela: 


Baud Rate POKE 149,x 


Assim, para configurar o CP 400 para receber/transmitir 
a 50 bps devemos dar as seguintes instruções: 


— POKE 149,4: POKE 150,88 





Para configurar a 9600 bps, deve-se dar apenas a instrução: 


POKE 150,1 





Observe que esta instrução não se apaga quando o micro 
é “resetado””, mas apenas quando o mesmo é desligado 
e ligado novamente. 

“ Quando o CP 400 éligado, sua velocidade de transmis- 
ão/recepção de dados está ajustada para 600 bps (ende- 









para trabalhar com o CP 400, podemos configurar a ve- 
locidade de transmissão/recepção da P 500. Importante: 
observe que esta velocidade nada tem a ver com a veloci- 
dade de impressão de dados. 

Para tanto, utilizamos as microchaves existentes no in- 
terior da impressora. A tabela abaixo mostra a velocida- 
de para cada combinação de posições destas microchaves: 


Chave 1 | Chave 2 | Chave 3 | Chave 4 | Baud Rate 


MICROCHAVES 

DE CONTROLE 

DA VELOCIDADE 
DE TRANSMISSÃO! 
RECEPÇÃO. 


Atenção: Nas microchaves, o lado OPEN corresponde a 
OFF desta tabela. Estas chaves estão localizadas numa pla- 


ca adicional (que é a placa da interface de comunicação | 


serial) montada sobre a placa principal, próxima ao local 
onde ficam as teclas de comando da P 500. 
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- 
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e dae a é 


REM, 


SEN ordidea vi pe 
















SP 16, 
um profissional 
para profissionais 


: O mercado brasileiro de informática 
ada ano, formando 
onais exigentes: 
jento utilizado. 
Essidade, a Pro- 
Cr$ 2 bilhões no 









En, vice- 
presidente da empresa, o “o SP I6é éuma 


muaneamen usar os poderosos p rO- 


Ec 


“compatível com o IBM/PC, ele é um 


a 


cessidades do mercado brasileiro”? 





SISTEMA 700 MODULAR, 
mais uma 
vantagem da Prológica 


Os empresários brasileiros contam 
agora com a terceira geração do Siste- 
ma 700 da Prológica: o Sistema 700 Mo- 
dular, que apresenta uma série de ino- 
vações tecnológicas para facilitar ain- 
da mais a operação. O novo equipamen- 
to de três módulos possui disco rígido 
Winchester incorporado, dez teclas de 
funções, teclado ergonométrico ecapa- 
citivo (cinco vezes mais resi 
os tradicionais), mem 
de RAM e4de EPROM 





micropro- 
Intel 8035 


gicas, a Prológica 
bém com o design d 
dular. Suas linhas 4 
marca modernist gude Suá 
omesmo artista q 


tadores Pessoais. 
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Executivos querem 
computador nas escolas 


A Associação Nacional dos Dirigentes e Executivos de Informática — Andei 
— entregou ao ministro da Educação, Marco Maciel, pedido de inclusão -do 
ensino básico sobre informática nos currículos de primeiro e segundo graus e 
nos cursos superiores. 

A Andei justifica a proposta afirmando que “o Brasil precisa formar profis- 
sionais adequados ao desempenho de funções provocadoras de mudanças or- 
ganizacionais e se preparar para a informatização da sociedade, onde o 
computador já começa a fazer parte da vida cotidiana dos cidadãos*” 


—- À França entra no século XXI 


Q governo francês pretende entrar no século XXT ainda este ano, colocando 
o país na “vanguarda da revolução da informática”, afirma o primeiro-ministro 
Laurent Fabius. Para conseguir tal revolução, a França está implantando um 
projeto que envolve todos os onze milhões de estudantes do país, do primário 
à Universidade, que a partir de setembro terão formação superior curricular 
em informática. Assim, nenhum aluno francês, de hoje até 1988, deverá sair 
da escola sem estar formado em computação. 

/ 


me CP 200 dá aula em 


Os alunos do primeiro grau da Escola São 
Francisco de Assis, em Recife, estão aprenden- 
do matemática e outras matérias, com a ajuda 
do CP 200. No início, o professor Guilherme Pe- 
reira teve que improvisar monitores usando ve- 
lhas TVs e elaborar programas simples para as 
aulas. Mas, após duas semanas de curso, os alunos já conjessavam ao profes- 
sor que estavam gostando mais de estudar matérias, como matemática, pelo 
CP 200 e exigiram também programas para outras matérias, principalmente, 

"* geografia e português. 





tor: a Bolsa de pregos 


Sob a direção de Dalton Esbato; a Du 
Empregos-Andei tem obtido grande receptivid: 
mercado, prestando seus serviços a todos « os 








A Micro Equipamentos 
desenvolveu mais dois aces- 
sórios para o CP 400 Color: 
o Conversor Serial Paralelo, 
que converte a saída serial 
do computador em saída pa- 
ralela, possibilitando o uso 
de qualquer impressora pa- 
drão Centronics (paralela) 
do mercado. Com este con- 
versor, o usuário tem a van- 
tagem de poder, através de 
uma chave de comutação do 
painel, ter acesso à saída se- 
rial do equipamento sem a 
desnecessária troca de cabos. 

O segundo produto da 
Micro Equipamentos é o Co- 
mutador de Saída Serial, que 
permite duplicar a saída se- 
rial do CP 400, para a utili- 
zação de dois periféricos se- 




















o novo programador 
musical do Pais 


O CP 500 setornou o novo programador musical | 
do País, através do Sistema de Programação Musi- | . 
cal Aleatória Coordenada (SPMAC), desenvolvido | 
pela Fênix Engenharia de Sistemas e Informática. 
Com esta inovadora aplicação, o CP 500 reduz de oi- 
to horas para um minuto o trabalho na elaboração 
de um dia de programação. 

““O sistema define todos os parâmetros determi- 
nados pelo programador, desde os critérios para en- 
trada de músicas até horários de comerciais, vinhe- 
tas ou intervenções jornalísticas””, afirma Claudio 
Buiton, da Fênix. 

AL &C de Comunicações — que coordena a pro- 
gramação de 116 emissoras espalhadas pelo País — 
utiliza-se do software da Fênix que, além do CP 500, 
desenvolveu também uma versão compatível com o 
Sistema 700 da Prológica. 


em São Paulo 


Foi criado, em São Paulo, o primeiro Clube do Soft- 
ware, com o objetivo de viabilizar o intercâmbio de pro- 
gramas e informações entre analistas e programadores. 
Em três meses de atividade, o clube já possui um acer- 
vo de 1200 programas e a participação de, aproximada- 
mente, 100 analistas. 

A intenção de seus criadores, Nelson Peter Lajovic e 
Luiz dos Santos, proprietários da Pró-Eletrônica, é criar 
um espaço para a comunidade de profissionais e interes- 
sados em informática que necessite de soluções especifi- 
| cas, qualquer que seja o equipamento. Maiores informa- 

ções: Rua Santa Ifigênia, 568 — São Paulo — telefone: 
| (011) 221-9055. 
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CONVERSOR SERIAL 
para o CP 400 Color 


riais. Estes dois novos pro- 
dutos já estão disponíveis no 
mercado, em todos os reven- 
dedores da CP Computado- 
res Pessoais. 





n 


SUPORTE 


localização 


O que acontece quando existe um 
erro no programa que você está 
rodando? Existem duas alternativas: 
na primeira, o computador mostra 
um lacônico “MN Erro na XXX”, 
onde MN é um mnemônico que 
indica o tipo de erro detectado e 
XXX, o número da linha onde ele 
ocorreu. A partir dessa informação, 
você digita um invariável LIST XXX 
ENTER, analisa a linha problemática 
e, quase sempre, parte para um EDIT 
XXX ENTER. A segunda alternativa é a 
localização e edição automáticas de 
erros, uma possibiiidade conquistada pela “K 
publicação do livro “Indo Além com o CP 400 4 
Color”, de Paulo Addair Daniel Filho; um dos 
recursos mais sérios no Brasil sobre a 
exploração de informações estratégicas para 


o CP 400 Color. Neste número, a Geração Prológica publica, com 












e edição 
no 


exclusividade, as explicações e rotinas para a localização e edição automáticas de erros. 


É possível melhorar significativamente o funcionamen- 
to da rotina de tratamento de erros. Podemos acrescentar 
uma rotina em linguagem de máquina no CP 400 capaz 
de, ao ocorrer um erro, acionar automaticamente a fun- 
ção de edição, posicionar o cursor sobre a parte da linha 
onde o erro 'foi detectado e permitir que você tenha ape- 
nas o trabalho de corrigi-lo. 

O interpretador BASIC do CP 400 utiliza uma sub- 
rotina armazenada nas posições &H9F a &HAA que ““pe- 
ga” os caracteres um por um dentro da linha de progra- 
ma. Quando o interpretador encontra um erro, o conteúdo 
de &HA6 e &HA7 aponta para o último caractere lido pe- 
lo interpretador. 

As linhas em BASIC são armazenadas num formato ““re- 
missivo””, ou seja, as palavras-chave não são armazena- 
das por extenso, mas sim representadas por um código de 
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até dois bytes. Isso torna o programa mais compacto e, 
consegiientemente, mais rápido. Por outro lado, fica di- 
fícil para o operador ler a linha diretamente da memória. 

Para que o operador possa identificar corretamente onde 
ocorreu o erro a identificação deste deve ser colocada den- 
tro da representação “legível” da linha, ou seja, a linha 
deve ser decifrada. Mas, existe uma rotina em &HB7CB 
que realiza essa função e coloca a linha decifrada na me- 
mória auxiliar (buffer) indicada pelo registrador Y. 

Agora precisamos definir os vários passos necessários 
para que as coisas saia como esperamos: em primeiro 
lugar, precisamos fazer com que a linha seja decifrada e 
que o cursor pare sobre o erro. Para isso, colocamos um 
zero na posição de erro. Isso faz com que a rotina de de- 
codificação acredite que aquele é.o final da linha. As li- 
nhas 00350 a 00450 salvam a posição do erro, recolocam 
o caractere original e continuam a decodificação. 

As linhas 00490 a 00580 imprimem o número da linha 
e o seu conteúdo, assim como EDIT o faria, e então acio- 
nam a edição, via rotina &H855C. 


GERAÇÃO PROLÓGICA 


FOTO: RODRIGO SALLES 


rea o ria 





automáticas de erros 


CP 400 


Nosso único problema agora é como fazer com que o 
interpretador BASIC realize tudo isso automaticamente, 
logo após ter sido detectado um erro. O interpretador passa 
pelas posições &H15E a &H1A8 várias vezes em diversas 
situações. A rotina do interpretador que coloca um carac- 
tere na tela (CHROUT — $A282) é importante, pois a no- 

| va instrução EDIT deve ser acionada após ter sido impresso 
“Erro na”. 

Este desvio pode ser usado para verificar qual instru- 
ção está sendo colocada na tela. A mensagem “*Erro na” 
fica armazenada nas posições $ABEI a $ABEB da ROM. 
A rotina CHROUT espera por esse endereço no registra- 
dor X. 

Existe um problema nesse método: “Erro” e “'na”” são 
consideradas mensagens separadas na memória do com- 
putador. Por isso, verificamos apenas se a mensagem “*'na” 
foi impressa. No entanto, a mensagem “'Break na” tam- 
bém utiliza o endereço que checamos no nosso método. 
Isso vai fazer com que a edição seja acionada também 
quando houver um STOP ou o acionamento da tecla 
BREAK, e a linha editada será a última que foi executada. 

A rotina CHROUT é checada sempre antes de comple- 
tar a saída na tela. Mudando-se o endereço de retorno usa- 
do no final desta rotina, a nova rotina de erro não será 
acionada até que CHROUT termine. Este endereço é ar- 
mazenado no indicador de pilha pelo registrador S. Já que 
na tabela de desvio os endereços estão no terceiro nível e 
cada nível ocupa dois bytes, devemos inserir o endereço 
da nova rotina de erro a partir do sexto byte; assim o re- 
gistrador S vai operar apropriadamente. 

A sub-rotina nas linhas 060 a 160 insere o novo desvio 

' na tabela. Esta rotina permite que um desvio que já esteja 
na posição $167 da tabela seja executado imediatamente 
após a rotina de manipuúlação de erro. Este método é mais 
complicado, porém mantém a compatibilidade com ou- 

' tras rotinas que também utilizam esse desvio. 

A sub-rotina em linguagem de máquina até pode traba- 
lhar com micros que não disponham de Extended BASIC 
(que é o COLOR BASIC do CP 400), mas aí não daria 
para usar o programa em BASIC que listamos aqui, pois 
ele depende de algumas instruções que só o Extended 
possui. 

O programa em BASIC é que vai carregar a sub-rotina 
em linguagem de máquina sem a necessidade de um EDI- 

| TOR/ASSEMBLER. As linhas 20 e 25 verificam quanta 

| memória dispõe seu sistema e automaticamente limpam pe- 
lo menos 1K para a rotina em LM (Linguagem de 
| Máquina). 
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COLOR 


Programa em BASIC 


“18 IF FEEK(&HB80CO)=18THENGOTOZA 
ag FRINT"O FROGRAMA NAO OFERA SE 
M EXTENDED PTC CAD 

38 CLEARE 


“100 IF (<> 15312 THEN FRINT"ERRO 
NOS DADOS": END 
ilg EXECX 
lZ6 FRINTOFROGRAMA CARREGADO SEM 
PROBLEMAS" 
tom PFRINTHENDERECO:S HEXSCX) TO 
"HEX$(X+133) 


140 DATA SE.01,67,06,80,07,8D», 
20,20, 10,0E,84,10,AF,8D,00,19 


150 DATA 31,8D,00,08,1A,AF,au, 
86-:7E,A07,1F.39,8C,0E,EM, 26.07 
1460 DATA 31.8D.00,06.10,AF,66-+ 
39,39,39,ED,E9,38,.DC, 68,DD, GE» 
BD, ED,CC 
1728 DATA ED,E9,AC-ED;AD,AL, As. 
42,10,8E.04,DD,A6,9F, BO, Ná, 34, BE 
188 DATA 4F,9F,00,A6,30.04,ED, 
E7Z.,CE,35-.02.07.9F,00,06.30,1F, 34 
rat 
198 DATA ED.EZ.CE. 1F,2t,83.02,DE 
7*DD,D7.8E-02,DD, ED, 63, EU, ED, ES» 
58 
"280 DATA ED,ED, CA-ED,89,AC, 8E,0Z 
1DD, 33,06» 83,04. DD. ED. 83, E6» ED » 
83,8C>7E- AC. 73. 7E-0HE,Da 


Esperamos que esse pequeno utilitário lhe facilite a vi- 
da na operação daqueles programas “'temperamentais” 
que relutam em funcionar. 





8ED167 
nósa 
AzeDnadza 
igRESU 


Rotina em linguagem de máquina 


Bugio 
Bag 
auasa 
Bagua 
aagsa 
agnsa 
800720 
nansa 
aaava 
BoLaa 


1anF8D0BI9 amiiLAa 


S18DBBAB 
igArau 
867E 
AZiF 

39 


SCAEEA 
2607 


à 318DHBHS 


l10AF dé 
39 
39 
39 


EDE958 
DC48 
DDZE: 
EDEDEC 
EDE9AL 
EDADOL 
EsuZ 
LABEBEDD 
ASPFADAS 
340 
6F9FOBAS 
2004 
EDEZCE 
3502 
AZo9FagAs 
301F 
3420 
EDEZCE 
1FaB 
8362DE 
DDDZ 
8EBEDD 
EDSSEM 
EDE958 
EDEDCA 
EDEZAC 
8EB2DD 
3506 
8302DD 
EDBSES 
EDB35C 
7EOC73 
ZENEDE 
saaa 


B9120 
20130 
Q0140 
98150 
90160 
90170 
g9180 
98196 
g9200 
90216 
paz 

99230 
gazua 
go256 
80260 
20270 
g0280 
88290 
90300 
20310 
90320 
90330 


Bosuo . 


99358 
B0360 
09370 
a0386 
90390 
ga4ag 
08410 
aguza 
B0439 
BB44A 
Bausa 
ISV 
00470 
9489 
aBuoa 
aBsaa 
80518 
gos2a 
99530 
0549 
99550 
005640 
00570 
99589 
90590 
Ha40B 
* Basia 


É do SD O e O do ÃO O o do DO o o dd dedo Reno o do do do o DO de DORA 
x AUTO EDIT - 
x FAULO ADDAIR -- JAN/85 
po do do do. do do, do do do db do Sb do db do do do, do cb db db do db do Sb ab de db db db db DD 
ORG $7F09 
xxxxx REBJUSTA DESVIO ANTES DA SAIDA DE CARACTERE cSAZes 
LDX H$167 FOSICAO FARA VINDA DE CHROUT 
LDA ,X+ FEGA RETORNO DE DESVIO ATUAL 
STA DESVIO,FCR E O COLOCA NO FIM 
EDS SK DA NOVA ROTINA. 
STY' 1+DESVIO-FCR FEGA ENDERECO DO NOVO DESVIO 
LEAY VEERRO-ECR E O COLOCA NA TABELA DESVIO 
SIT 5X ; 
LDA H$ZE DESVIO NO ó8O9E. 
STO. =1,X ARMAZENA-O NA TABELA. 
RTS 
xxxxx VERIFICA SE "ERRO NA” FOI IMPRESSO xxx 
VEERRO CMEX HSNEEA IMERIMINDO “ERRO NA''? 
ENE DESVIO NAO. FACA O DESVIO NORMAL. 
LEAY ERRO- FER FEGA ENDERECO DO NOVO DESVIO 
STY 6,5 ARMAZENA COMO ULTIMO RETORNO. 
DESVIO RTS " SALVA 3 EYTES 
RTS 
RTS 
x NOVA ROTINA DE MANIPULACAO DE ERRO x 
ERRO JSR  $E958 AFAGA O FINAL LINHA NA TELA 
LDD $68 FEGA NUMERO ATUAL DA LINHA 
| STD $2E E O ARMAZENA 
JSR  $EDCC IMPRIME NUMERO DA LINHA ATUAL 
JSR SE9AC IMPRIME ESFACO 
JSR $SADOL FOE FOSICAO DO NUMERO DE LINHA 
ECS FIMERR ERRO SE NAO FOR NUMERO CORRETO 
LDY  H$2DD FOSICAO DO BUFFER DO TECLADO 
LDA C[$A6] FOSICAO DO ERRO NA LINHA EASIC 
FSHS A SALVA AQUELE CARACTERE 
CLR [406] IGUALA A ZERO FZ FIM DE LINHA 
LEAX 4,X FEGA COMECO DA LINHA EASIC 
JSR SEZCE REFOE O CARACTERE DE ERRO 
FULS A FEGA O CARACTERE DE ERRO 
STA C[$A6I O O COLOCA DE NOVO NA LINHA 
LEAX -1,X REAJUSTA F/ DECIFRAR A LINHA 
FSHS Y SALVA FOSICAO ERRO NO-EUFFER 
JSR SEZCE DECIFRA O RESTO DA LINHA 
TER Y.D POE FINAL DO EUFFER EM D 
SUED H$S2DE FEGA COMPRIMENTO DO EUFFE 
STD $D7 SALVA FARA A ROTINA DE EDICAO 
LDX  H$2DD INICIO DO EUFFER 
JSR $85Ey4 IMPRIME EUFFER 
JSR $E958 AFAGA O FINAL DA LINHA 
JSR $EDCA IMPRIME O NUMERO DE LINHA 
JSR SEPAC IMPRIME ESFACO 
LDX H$2DD FOSICAO DO EUFFER 
FULS D FEGA FOSICAO DO ERRO NO BUFFER 
SUED H$2DD DISTANCIA DO INICIO DO EUFFER 
JSR $85E6 IMPRIME EUFFER ATE” O ERRO 
JSR $855C CHAMA ROTINA DE EDICAO 
JME  $AC73 VAI FARA LOOF DE COMANDO EASIC 
FIMERR JME  $SAEDZ CHAMA ERRO UL 
END 
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o roca nO nasce 


A potencialidade e a efi- 
ciência do CP 500, em qual- 
quer uma de suas versões, são 
instrumentos poderosos para 
qualquer atividade profissio- 
nal. Um exemplo desta capa- 
cidade é o trabalho desenvol- 
vido por Theodore Papageor- 
giou, que criou a Electro-Arts 
Som e Imagem — uma empre- 
sa especializada em efeitos es- 
peciais de som, iluminação e 
projeção — com a ajuda com- 
putadorizada de um CP 500 e 
uma impressora P 500. 

Segundo Theodore, “a Elec- 
tro-Arts nasceu a partir da 
idéia de que se pode produzir, 
atualmente, no Brasil, efeitos 
especiais de som, iluminação e projeção como mesmo po- 
tencial técnico e criativo dos efeitos oferecidos no merca- 
do internacional. Com a utilização do CP 500 e Interfa- 
ces Inteligentes, desenvolvidas pela própria Electro-Arts, 
atingimos nosso objetivo, e o importante é que o realiza- 
mos a um custo acessível”. 

Hoje, através da computação, a Electro-Arts cria dese- 
nhos animados, filmes e vídeos publicitários com a triiha 
sonora perfeitamente sincronizada, independentemente dos 
requisitos de edição de imagem e da composição musical. 

Através da computação, a empresa está apta a prestar 
os seguintes serviços: montagem de audiovisuais, para to- 
das as funções, e com qualquer número de projetores de 
slides; consultoria para sincronismo e montagem de trilhas 
sonoras para filmes e vídeo-teipes; sincronismo de painéis 
luminosos e sistema de programação de audiovisual. 
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CP 500: imagem e som em alta velocidade 


Para os audiovisuais, a Electro-Arts realiza O sincro- 
nismo dos projetores de slides com a trilha sonora através 
do CP 500, que pode acionar um número indeterminado 
de projetores de slides, podendo gerar audiovisuais de uma 
ou várias telas. Este sistema desenvolvido por Theodore 
permite mudança de imagem em alta velocidade, com con- 
trole de intensidade de luz e tempo de fusão. 

Segundo Theodore, “*o ciclo de um projetor de slides 
é de, aproximadamente, um segundo. Com o CP 500 
posso utilizar oito projetores por tela, ou seja, uma mu- 
dança de oito imagens por segundo, produzindo efeitos 
de animação”. 
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Na Electro-Arts, o CP 500 

foi transformado em um 
especialista em efeitos especiais 
de som, iluminação e projeção. 


“Para este sistema” — 
continua — “*desenvolvemos 
softwares e interfaces inteli- 
gentes, o que possibilita o 
acesso direto ao sistema ope- 
racional. Dessa forma, pode- 
mos criar sincronismos e efei- 
tos especiais para qualquer ti- 
po de exigência estética””. 

Outra atividade da empre- 
sa, através do CP 500, é a 
consultoria para sincronismo 
e montagem de trilhas sono- 
ras. Também nesse caso a 
Electro-Arts desenvolveu soft- 
ware e interfaces que podem 
acionar, através do computa- 
dor, sinais de controle para 
sintetizadores de som. 

As interfaces são basicamente de quatro tipos: Sistema 
Key/Time, para acionar sintetizadores tipo Prophet 5; Sis- 
tema Midi, para acionar sintetizadores avançados; Siste- 
ma CV, GATE, para acionar sintetizadores analógicos e 
módulos de voz desenvolvidos pela própria Electro-Arts; 
e RS 232C e Interfaces Híbridas, para acionar máquinas 
de ritmo e sintetizadores não compatíveis com outros 
sistemas. 


Sincronismo e Software 


Para o trabalho de sincronismo de painéis, a Electro- 
Arts desenvolveu um software especializado para aciona- 
mento de lâmpadas incandescentes para qualquer tipo de 
função, através do CP 500, seja iluminação de peças de 
teatro e shows musicais, seja para painéis demonstrativos 
de processos de produção, letreiros e similares, que têm 
grande aplicação em feiras e outdoors. 

Mas a Electro-Arts não se contenta em desenvolver soft- 
wares específicos e Interfaces Inteligentes para sistemas de 
som, imagem e projeção. Ela utiliza o CP 500 e a impres- 
sora P 500 para todas as atividades administrativas neces- 
sárias a uma empresa: papel-carta e envelopes personali- 
zados, impressão de cartas, controle de produção, além 
da inevitável mala-direta. 

Para Theodore Papageorgiou, as funções que o CP 500 
pode exercer são inúmeras. “O problema”? — explica — 
“é que no Brasil ainda não existe uma cultura informatiza- 
da, que possibilite aos usuários conhecer a potencialidade 
de seu equipamento e, assim, poder transformá-lo num efe- 
tivo instrumento de trabalho e desenvolvimento”. 
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Cobol com Estilo, de Louis J. 
Chmura e Henry F. Ledgard, 
151 páginas, Editora Campus. 

Espirituoso e bem-humo- 
rado, repleto de dicas, conse- 
lhos e pequenos truques; es- 
telivro aborda com simpatia 
os problemas e dificuldades 
do programador em Cobol, 
levando-o a desenvolver no- 
vas habilidades no que se re- 
fere ao estilo e à precisão. 


J060S 


LINGUAGEM 
ps AQUINA 





Jogos em Linguagem de Má- 
quina, volume 3, seleção da 
Pierluigi Piazzi, 137 páginas, 
Aleph Publicações e Editora 
Moderna. 

Apesar do título, este vo- 
lume não exige por parte do 
leitor conhecimentos de lin- 
guagem de máquina: todos os 
Jogos são listados de manei- 
ra a poderem ser facilmente 
introduzidos no micro por in- 
termédio de um programa au- 
xiliar (monitor). Todos os jo- 
gos são precedidos por uma 
explicação, tanto do funcio- 
namento quanto do cenário. 
Obra dirigida para os usuários 
de microcomputadores com- 
patíveis com o CP 200. 
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Cobol: Regras para Progra- 
madores, de George Ledin 
Jr., Michael Kudlick e Victor 
Ledin, 228 páginas, Editora 
Campus. 


Este livro reúne a experiên- 
cia de inúmeros profissio- 
nais, apresentando-a sob a 
forma de regras simples, do 
tipo ““Faça/Não Faça”, sem- 
pre enunciadas nas páginas 
da esquerda e acompanha- 
das, à direita, de explicações 
e exemplos que facilitam sua 
compreensão. Porém, mais 
do queisso, o texto se propõe 
a ajudá-lo a: solucionar os 
problemas dos usuários, tor- 
nar seus programas fáceis de 
usar, melhorar seu estilo na 
programaçãoe produzir pro- 
gramas bem documentados. 





Basic com Estilo — Provér- 
bios de Programação, de 
Paul Nagin e Henry F. Led- 
gard, 144 páginas, Editora 
Campus. 

“Os programadores po- 
dem e devem escrever progra- 
mas que funcionem perfeita- 
mente logo de início.” É pro- 
vável que esta afirmação pa- 
reça muito otimista aos pro- 
fissionais acostumados a lon- 
gas horas de depuração. No 
entanto, esta é, justamente, a 
proposta deste livro, destina- 
do a programadores de Basic 


SIC 


COM ESTILO 





que desejem produzir progra- 
mas legíveis, cuidadosamen- 
te construídos. 


EO ESSES or 1 SE IA 





Planejamento de Capacidade 
de Sistemas de Computação, 
de Daniel A. Menascé e Vir- 
gilio A. F. Almeida, 83 pági- 
nas, Editora Campus. 

A informática está pene- 


trando cada vez mais em di- 
versos setores de nossa socie- 
dade. Assim sendo, torna-se 
cada vez mais importante que 
as instalações de Processa- 
mento de Dados tenham a 
sua capacidade adequada- 
mente dimensionada de for- 
ma a poder processar as di- 
versas cargas de trabalho, a 
fim de não incorrer em ônus 
financeiros desnecessários. 
Por isto, este livro apresenta 
a Análise Operacional — fer- 
ramenta que permite cons- 
truir modelos analíticos para 
previsão de desempenho de 
um sistema de computação. 








Bancos de Dados: Funda- 
mentos, de C. J. Date, 214 
páginas, Editora Campus. 
Se você nem sabe como 
funcionam os computadores, 
mas precisa usar ou conhecer 
um sistema de banco de da- 
dos, então, este livro é para 
você. Não importa o tipo de 
equipamento que você opera 
ou possui ou o grau de conhe- 
cimento sobre informática: 
Banco de Dados vai mostrar- 
lhe o que os atuais sistemas 
podem fazer por você e como 
melhor utilizá-los. O texto in- 
clui ainda uma visão geral dos 
bancos de dados, exemplos 
práticos e exercícios. 





Fortran para Micros, de 
Garry Marshall, 86 páginas, 
Editora Campus. 

Estelivro é para osleitores 
que já conhecem o Basic, pois 
adota uma abordagem infor- 
mal que, fornecendo as infor- 
mações mínimas necessárias, 
possibilita ao leitor traçar um 
paralelo entre as duas lingua- 
gens, tornando-o rapidamen- 
te capaz de escrever progra- 
mas também em Fortran. 
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CP500D P 1 


CP500/M?a grande solução. 


CP50C0D PR 





Garantia da maior biblioteca 
de programas aplicativos. 


O CP 500/Mºº agora também é compati- 
vel com CP/M, o Sistema Operacional 
mais difundido no mundo. Isso significa 
que, somando o tradicional DOS 500 
com o CP/M, você passa a dispor da maior 
biblioteca de programas aplicativos do 
mercado. Trata-se da solução inteligente 
e racional para o seu dia-a-dia, permitindo 
a você tirar vantagem de programas como 


Características 





SO-08 DOS 500 


48 Kbytes 

16 Kbytes 
TRS-DOS 

64 ou 32 colunas 
por 16 linhas 


Memória RAM 64 Kbytes 

Memória ROM 2 Kbytes 

Compatibilidade CP/M* 

Vídeo 80 colunas por 
24 linhas 





* Marcas Registradas 


Sistema Operacional 


CalcStar*, dBase II*, WordStar* e muitos 
outros, que vão agilizar tanto a sua vida 
quanto a da sua empresa: Folha de 
Pagamento, Controle de Estoque, Contas a 
Pagar/Receber, Administração Hospitalar, 
Cálculo Estrutural, Sistema de Balancea- 
mento de Rações e outros programas especi- 
ficos para o seu ramo de atividade. 

O CP 500/M?º possui saída paralela para 


Vídeo 12” fósforo verde com controle de 
intensidade 

Teclado profissional capacitivo com numérico 
reduzido 

Interface para impressora paralela 

Interface serial padrão RS232-C (opcional) 
Freqiiência de Operação: 2 Mhz 

Unidade de som com controle de volume ' 
Opera com 1 ou 2 drives de face simples ou dupla 





impressora, e você pode instalar facilmente 
uma porta RS232-C, que o coloca em 
contato com a Rede Internacional de 
Telemática, além do Videotexto, Cirandão, 
Aruanda etc. Conheça no seu revendedor 
mais próximo o CP 500/M?º?, 

Um grande passo na informática, com a 
qualidade CP e a Tecnologia Prológica. 


COMPUTADORES PESSOAIS 


TECNOLOGIA Eu 
PROLOGICA 














